let make_store f s = Store (f, s)
